Column

Chart A

smaller_noaa %>% 
  plot_ly(x=~year, y = ~snow_mm, color = ~year, type = "box", colors = "viridis")

Column

Chart B

smaller_noaa %>% 
  plot_ly(x = ~year, y = ~tmin, color = ~year, type = "bar", colors = "viridis")

Chart C

smaller_noaa %>%
  plot_ly(
    x = ~year, y = ~prcp, type = "scatter", mode = "markers", alpha = 0.5, colors = "viridis")

rmarkdown::render(“plotly.Rmd”, output_format = “flexdashboard::flex_dashboard”)